home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / z2.ada < prev   
Text File  |  1996-01-30  |  430b  |  28 lines
  1.  
  2. WITH Ada.Text_IO; USE Ada.Text_IO;
  3.  
  4. PROCEDURE Z2 IS
  5. BEGIN
  6.     Put_Line("Main Initiating.");
  7.     DECLARE
  8.         TASK TYPE T(My_Id : Character := 'a');
  9.  
  10.         T1 : T;
  11.         T2 : T('b');
  12.  
  13.         TASK BODY T IS
  14.         BEGIN
  15.             Put("Task ");
  16.             Put(My_Id);
  17.             Put_Line(" is running.");
  18.             FOR I IN 1 .. 10 LOOP
  19.                 DELAY 0.04;
  20.                 Put(My_Id);
  21.             END LOOP;
  22.         END T;
  23.     BEGIN
  24.         Null;
  25.     END;
  26.     New_Line;
  27.     Put_Line("Main Terminating.");
  28. END Z2;